home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / schleifen-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  199b  |  14 lines
  1. 2 printchr$(147);
  2. 3 deffny(x)=sin(x)
  3. 4 deffnz(x)=cos(x)
  4. 5 :
  5. 6 forx=0to100step.3
  6. 7 y=fny(x):y=int(y*10+.5)
  7. 8 z=fnz(x):z=int(z*10+.5)
  8. 9 t1=y+20:t2=z+20
  9. 10 printtab(t1)"*":printchr$(145);
  10. 11 printtab(t2)"*"
  11. 13 nextx
  12. 14 print"[147]"
  13. 15 end:
  14.